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SOURCE 


STITLECLILNA Transport Control Layer Object Generation Macros 12% 
NAME TCLGEN 
Sinclude (€:f1:cpyrt.dea) 


tte 


/x Intel Corporation Proprietary Information. 
This listing is supplied under ths terms of a 
license agrement with Intel Corporaton and. 

may not be copied nor disclosed except in 
accordance with the terms of that agreement. */ 


INCLUDE C:f1:SYSGEN.GEO) . 

ao CC) INTEL CORPORATION 19841. ALL RIGHTS RESERVED. NO PART 
OF THIS PROGRAM OR PUBLICATION MAY BE REPRODUCED, TRANS- 
MITTED, TRANSCRIBED, STORED IN A RETRIEVAL SYSTEM, OR 
TRANSLATED INTO ANY LANGUAGE OR COMPUTER LANGUAGE, IN ANY 
FORM OR BY ANY MEANS, ELECTRONIC, MECHANICAL, MAGNETIC, 
OPTICAL, CHEMICAL, MANUAL OR OTHERWISE, WITHOUT THE PRIOR 


SANTA CLARA, CALIFORNIA, 95051, ATTN: SOFTWARE LICENSE 
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ADMINISTRATION. 
a? GROUPDEF = DEFINE LINKER GROUPS 
; 
; THIS MACRO DEFINES CGRUOP AND DOGROUP. 
vat OBJECTLIST (NAME) = START OBJECT LIST FOR "CREATELIST". 
3 : 
; THIS MACRO GIVES A NAME TO AND MARKS THE BEGINNING OF 
; A LIST TO BE PASSED TO "CREATELIST". 
7 
; PARAMETER: 2% 
; NAME - THE NAME TO BE DECLARED PUBLIC AS THE NAME OF THIS LIST. 
rae PROCESS CPRI, ENTRY, STACKSIZE) =~ CREATE PCBS AND STACK FOR PROCESS. 


WRITTEN PERMISSION OF INTEL CORPORATION, 3065 BOWERS AVENUE, 
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PARAMETERS: 
PRE @ DRE. PRIORITY. OF THE PROCESS» ZERO SEEING THE HIGHEST 
AND SIZE-1 (FROM THE "READYLIST" MACRO) BEING THE LOWEST. 
ENTRY - THE ENTRY NAME OF THE PROCESS. THIS SYMBOL 
WILL BE DECLARED EXTERNAL. 
STACKSIZE - THE NUMBER OF BYTES OF USER SPACE TO 
CREATE IN THE STACK. 


SEMAPHORE CNAME, INITIAL) - CREATE SEMAPHORE. 
PARAMETERS: 
NAME = THE NAME OF THE SEMAPHORE. THIS NAME WILL BE 


DECLARED PUBLIC. 
INITIAL ~ THE INITIAL NUMBER OF SIGNALS ON THE SEMAPHORE. 


MAILBOX CNAME) - CREATE MAIL80X. 
PARAMETERS 


NAME - THE NAME OF THE MAILBOX. THIS NAME WILL BE 
DECLARED PUBLIC. 


ALARMCNAME) = CREATE ALARM CONTROL 8LOCK. 


PARAMETERS: 
size - NUMBER OF PRIORITIES IN READY LIST. 


READYLIST ~- DEFINE READY LIST. 


~ NUMBER OF PRIORITIES IN READY LIST. 


LOC OBJ LINE SOURCE 
=4 106 
=4 107 
=1 108 
= 4 109 
=4 116 
= 111 
=1 ke aa ENOLIST ~ MARK END OF LIST. 
=1 113 ? 
=4 114 v oP, PARAMETERS: 
=4 115 , NONE. 
=4 114 
=1 Vg 
=1 116 ; 
119 7 Date 10/26/81 Take out logrbmbx 
120 , Date 99/30/81 Last modified 
121 , Date 09/01/81 Modified to reduce stack size 
122 , Date 09/24/81 added bufmipmbx, tbmsproc 
- 4123 ; 9/30/81 Oropped stack requirements for non-logging version 
124 s,Transport Control Layer KAOS generation macros for TCL objects, 
125 , not test objects. 
126 » Note: duplicates of every stmnt (without percent) inserted so they 
127 7 will show on listing. 
128 ; 
129 ; GROUPDEF 
TSC: 4 . 
het: +4 CGROUP GROUP CODE 
132-1 DGROUP GROUP DATAsSTACKS 
133 +4 
434 ; ey OBJECTLISTCTCLOBJECTS) 
b35° 44 
mcs 136 +1 CODE SEGMENT PUBLIC ’CODE’ 
137 Fe PUBLIC TCLOBJECTS . 
0000 138 t2 TCLOBJECTS EQU $ 
pee 139 +1, CODE ENDS 
140 +1 
141 ; 28 bytes less than logging ve 
rsion 
142 ; PROCESSC4,/RCVPROC, 84) 
143 +1 , 
144 +2 ZEXTRN RCVPROC:FAR 
ba aataas 145 +1 CODE SEGMENT PUBLIC ’CODE’ 
0000 O02 146 +1 08 2 
9001 0000 R 147 +2 DW OFFSET DGROUP:PCB_RCVPROC 
0003 0400 143 +2 DW 4 
0005 0000 C 149 +2 OW OFFSET CGROUPSRCVPROC 
0007 5E00 K 150: 2 DW OFFSET DGROUP:STK_RCVPROC 
clas 11 4 CODE cNOS 
=>? 152 +14 DATA SEGMENT PUBLIC “DATA’ 
0000 ¢7 153 +2 PCB_RCVPROC Ww 7 DUP ¢7?) 
Tore 
) 
So re Loe: et DATA ENOS 
= / LSS. #4 STACKS SEGMENT PUBLIC “’STACKS’ — ,sCREATE STACK 
Q0000 (47 156 +2 LIM_RCVPROC WW 2FH DUP COAAAAH) 
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SOURCE 
STK_RCVPROC 
STACKS ENOS 
; 
rsion 
; 

EXTRN 
CODE SEGMENT 

53 

DW 

OW 

DW 

DW 
CODE ENOS 
DATA SEGMENT 
PCB_TRANSPROC 
DATA ENDS 
STACKS SEGMENT 
LIM_TRANSPROC 
STK TRANSPROC 
STACKS ENDS 
; 
rsion 
? 

EXTRN 
CODE SEGMENT 

08 

OW 

OW 

DW 

DW 
CODE ENDS 
DATA SEGMENT 
PCB_IPPROC 
DATA ENDS 
STACKS SEGMENT 
LIM_IPPROC 
STK IPPROC 
STACKS ENDS 
7 
rsion 
; 

EXTRN: 
Code SEGMENT 
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less than logging ve 


PROCESSC5/TRANSPROC,82) 


TRANSPROC?FAR 
PUBLIC “CODE* 
2 
OFESST. 
2 

OFFSET CGROUP:TRANSPROC 


OFFSET DGROUP:SSTK_TRANSPROC 


DGROUP:PCB_TRANSPROC 


PUBLIC ‘DATA’ 
DW 7 DUP (7?) 


PUBLIC “STACKS*% 
DW 2EH DUP COAAAAH) 


sCREATE STACK 


EQU $ 


52 bytes less than logging ve 


PROCESS (6/IPPROC,72) 


IPPROC: FAR 

PUBLIC ’CODE’ 

2 | 
OFFSET DGROUP:PCB_IPPROC 
6 

OFFSET CGROUP:IPPROC 
OFFSET DGROUP:STK_IPPROC 


PUBLIC “DATA’ 
DW 7 OUP <7) 


PUBLIC “STACKS’ 
OW 29H DUP 


*CREATE STACK 
COAAAAH) 


EQU $ 


34 bytes 


less than logging ve 


PROCESS C7-TBMSPROC,66) 


TBMSPROC:FAR 
PUBLIC “CODE” 
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LOC OBJ LINE SOURCE 
0018 02 200 +74 33 2 
001C 2AC0 R 201 +2 OW OFFSET DGROUP:PC3_TSMSPROC 
OO1E 9700. 202 +2 DW 7 
0020 0000 E 203 +2 DW OFFSET CGROUP:TSMSPROC 
0022 5801 R 204 +2 OW OFFSET DGROUP:STK_TBMSPROC 
Sd rr 205 +1 CODE ENDS 
---- . 206 +1 DATA SEGMENT PUBLIC “DATA’ 
OO2A (7 207 +2 PCB_TSMSPROC DW 7 DUP (7?) 
2227 
) 
---- 2028 +1 DATA ENDS 
Soo= 209 #1 STACKS SEGMENT PUBLIC ’STACKS’ CREATE STACK 
O10C (38 219 +2 LIM_T3MSPROC DW 26H DUP COAAAAH) 
AAAA 
) 
0158 211 +2 STK_T3MSPROC EQU 3 
=== 212 +1 STACKS ENDS 
213 ; MATLBOXCTPMBX) 
214 +1 
215 +2 PUBLIC TPMBX 
mind cai 216 +1 CODE SEGMENT PUBLIC ‘CODE’ 
0024 06 okey. et DB 6 
0025 3800 R 218 +2 OW OFFSET OGROUP:TPM8X 
---- 219 +1 CODE ENDS / # 
SSe> 220 +1 DATA SEGMENT PUBLIC “’DATA’ 
0038 ¢8 221 +2 TPMBX OW 8 DUP (7?) 
22277 
) 
== 222 +1 DATA. ENDS = 
223 ; | MATLBOXCRPMBX) 
: 224 +1 
225 +2 PUBLIC RPMBX 
---- 226 +1 CODE SEGMENT PUBLIC ’CODE’ 
0027 06 227 +1 D3 6 
OG28 4800 R 228 +2 — OW OFFSET DGROUP:RPMBX 
_ 229 +1 #\COBE ENDS 
“=== 230 +1 DATA SEGMENT PUBLIC ‘DATA’ 
0048 (8 231 +2 RPMBX DW 8 DUP (7?) 
222? 
) 
---- 232 +1 DATA ENDS 
233 ; | MAILBOX CIPINMBX) 
234 +1 | | 
: 235 +2 PUBLIC IPINMBX 
a 236 +1 #4CODE SEGMENT PUBLIC ’CQODE’ 
OO02A 06 car +1 D8 6 
0028 5800 R 238 +2 DW OFFSET DGROUP:IPINMBX 
ieee 239 +1 CODE ENDS 
Sai 240 +1 OATA SEGMENT PUBLIC ‘DATA’ 
0058 ¢8 241 +2 IPINMBX OW 8 DUP (2?) 
222? | 
) 
eo 242 +1 DATA ENDS 


243 ; | : MAILBOX CFREEIRBMBX) 
244 +1 : 
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CODE 


CODE 
DATA 


PUBLIC 
SEGMENT 
O38 

OW 

ENDS 
SEGMENT 


FREEIRSMBX 


¢ 


DATA ENDS 
; 
PUBLIC 
CODE SEGMENT 
D8 
DW 
CODE ENDS 
DATA SEGMENT 
EFREELIRRMBX 
DATA ENDS 
; 
PUBLIC 
CODE SEGMENT 
| 0B 
OW 
CODE ENDS 
DATA SEGMENT 
BUFMIPMBX 
QATA ENDS 
; 
CODE SEGMENT 
PUBLIC. 
DS 
DW 
DW 
CODE ENDS 
DATA SEGMENT 
SCHEDLOCK 
DATA ENDS 
: 
CODE SEGMENT 
93 
CODE ENDS 
END 


FREEIRBMBX 

PUBLIC ’CQ0c’ 

6 

OFFSET DGROUP:FREEITRSMBX 


PUBLIC ‘DATA’ 


Dh 8 DUP (?) 


FREELIRBMBX 

PUBLIC “’CODE’ 

6 

OFFSET OGROUP:SFREELIRB MBX 


PUBLIC “DATA’ 
DW ‘& DUP 


BUFMIPMBX 

PUBLIC “CODE’ 

6 

OFFSET OGROUP:8UFMIPMBX 


PUBLIC “DATA’ 


DW 8 DUP (7) 


PUBLIC “’CODE’ 
SCHEDLOCK 

4 
OFFSET 
, 


DOGROUP:SCHEDLOCK 


PUBLIC “DATA” 


DW 4 DUP (7) 


PUBLIC ’CODE’ 


0 
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MAILBOX CFREELIRBMBX) 


MATLBOX (CBUFMIPMBX) 


SEMAPHORE CSCHEDLOCK,1) 


ENOLIST 


